﻿Module mdl_MoveStdService

#Region "MoveStdService_Execute"
    Function MoveStdService_Execute(ByVal inParam As InSiteWebService.InMoveStd, ByVal clientStr As String) As InSiteWebService.OutMoveStd

        Dim srvClient As New InSiteWebService.InSiteServiceSoapClient   'サービスクライアント
        Dim outParam As New InSiteWebService.OutMoveStd                 '全サービス共通の出力用ヘッダ

        inParam.Header = New InSiteWebService.InHeader                  '全サービス共通の入力用ヘッダ
        inParam.Header.User = INSITE_USER                               'ログインユーザ
        inParam.Header.Password = PASSWORD                              'ログインパスワード
        inParam.Header.Client = clientStr

        Try
            outParam = srvClient.MoveStdService_Execute(inParam)        'ロット完成
            Return outParam

        Catch ex As Exception
            outParam.Header = New InSiteWebService.OutHeader
            outParam.Header.Status = STS_ERROR
            outParam.Header.ResultMessage = New String() {ex.Message & " (" & ex.InnerException.Message & ")"}
            outParam.Header.ResultCode = New String() {"99999"}
            Return outParam

        Finally
            srvClient = Nothing
            outParam = Nothing

        End Try

    End Function
#End Region

End Module
